home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / rscale_1 / rscale~1.exe / disk1 / data1.cab / Example_Files / Form1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-06-22  |  4.8 KB  |  148 lines
  1. VERSION 5.00
  2. Object = "{7FAAA564-03CB-11D2-84F4-444553540000}#1.0#0"; "RSCalendar.dll"
  3. Begin VB.Form Form1 
  4.    Caption         =   "RSCalendar ActiveX Control Sample"
  5.    ClientHeight    =   3045
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   5505
  9.    ForeColor       =   &H80000007&
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   3045
  12.    ScaleWidth      =   5505
  13.    StartUpPosition =   3  'Windows Default
  14.    Begin RSCALENDARLibCtl.RSCalendarCtrl RSCalendarCtrl1 
  15.       Bindings        =   "Form1.frx":0000
  16.       DataField       =   "BirthDate"
  17.       DataSource      =   "Data1"
  18.       Height          =   315
  19.       Left            =   1800
  20.       TabIndex        =   6
  21.       Top             =   1800
  22.       Width           =   2655
  23.       Appearance      =   1
  24.       Enabled         =   -1  'True
  25.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  26.          Name            =   "MS Sans Serif"
  27.          Size            =   8.25
  28.          Charset         =   204
  29.          Weight          =   400
  30.          Underline       =   0   'False
  31.          Italic          =   0   'False
  32.          Strikethrough   =   0   'False
  33.       EndProperty
  34.       ForeColor       =   -2147483640
  35.       BackColor       =   -2147483643
  36.       rsHighliteColor =   -2147483635
  37.       rsOutlineTodayColor=   128
  38.       rsActiveMonthColor=   -2147483640
  39.       rsOtherMonthColor=   -2147483631
  40.       BeginProperty rsCalendarFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  41.          Name            =   "Tahoma"
  42.          Size            =   9.75
  43.          Charset         =   0
  44.          Weight          =   400
  45.          Underline       =   0   'False
  46.          Italic          =   0   'False
  47.          Strikethrough   =   0   'False
  48.       EndProperty
  49.       DateFormat      =   "dddd, MMMM dd, yyyy"
  50.       FirstWeekDay    =   0
  51.       TodayText       =   "Today"
  52.       NoneText        =   "None"
  53.       Text            =   ""
  54.       rsUnSelectableColor=   -2147483631
  55.       FirstDate       =   0
  56.       EnableFirstDate =   0   'False
  57.       EnableLastDate  =   0   'False
  58.       LastDate        =   0
  59.    End
  60.    Begin VB.Data Data1 
  61.       Caption         =   "Data"
  62.       Connect         =   "Access"
  63.       DatabaseName    =   "C:\DEV\ATL\RSCalendar\VBTest\demo.mdb"
  64.       DefaultCursorType=   0  'DefaultCursor
  65.       DefaultType     =   2  'UseODBC
  66.       EOFAction       =   2  'Add New
  67.       Exclusive       =   0   'False
  68.       Height          =   375
  69.       Left            =   480
  70.       Options         =   0
  71.       ReadOnly        =   0   'False
  72.       RecordsetType   =   1  'Dynaset
  73.       RecordSource    =   "catalog"
  74.       Top             =   2400
  75.       Width           =   1935
  76.    End
  77.    Begin VB.TextBox Text2 
  78.       DataField       =   "LastName"
  79.       DataSource      =   "Data1"
  80.       Height          =   285
  81.       Left            =   1800
  82.       TabIndex        =   4
  83.       Text            =   "Text2"
  84.       Top             =   1320
  85.       Width           =   2655
  86.    End
  87.    Begin VB.TextBox Text1 
  88.       DataField       =   "FirstName"
  89.       DataSource      =   "Data1"
  90.       Height          =   285
  91.       Left            =   1800
  92.       TabIndex        =   2
  93.       Text            =   "Text1"
  94.       Top             =   840
  95.       Width           =   2655
  96.    End
  97.    Begin VB.Label Label4 
  98.       Caption         =   "Date of birth"
  99.       Height          =   255
  100.       Left            =   360
  101.       TabIndex        =   5
  102.       Top             =   1800
  103.       Width           =   1095
  104.    End
  105.    Begin VB.Label Label3 
  106.       Caption         =   "Last Name"
  107.       Height          =   255
  108.       Left            =   360
  109.       TabIndex        =   3
  110.       Top             =   1320
  111.       Width           =   1215
  112.    End
  113.    Begin VB.Label Label2 
  114.       Caption         =   "First Name"
  115.       Height          =   255
  116.       Left            =   360
  117.       TabIndex        =   1
  118.       Top             =   840
  119.       Width           =   1335
  120.    End
  121.    Begin VB.Label Label1 
  122.       Caption         =   "Simple Data Entry Form"
  123.       BeginProperty Font 
  124.          Name            =   "MS Sans Serif"
  125.          Size            =   12
  126.          Charset         =   204
  127.          Weight          =   700
  128.          Underline       =   0   'False
  129.          Italic          =   0   'False
  130.          Strikethrough   =   0   'False
  131.       EndProperty
  132.       Height          =   375
  133.       Left            =   120
  134.       TabIndex        =   0
  135.       Top             =   120
  136.       Width           =   4695
  137.    End
  138. Attribute VB_Name = "Form1"
  139. Attribute VB_GlobalNameSpace = False
  140. Attribute VB_Creatable = False
  141. Attribute VB_PredeclaredId = True
  142. Attribute VB_Exposed = False
  143. Private Sub Form_Load()
  144. Dim szPath As String
  145. szPath = App.Path + "\Demo.mdb"
  146. Data1.DatabaseName = szPath
  147. End Sub
  148.